home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / DB_CLIPP / 2611.ZIP / MANIFEST.ZIP / COUNTER5.PRG < prev    next >
Text File  |  1988-04-14  |  648b  |  43 lines
  1. ******************
  2. *  COUNTER5.PRG  *
  3. *  CHOICE 4      *
  4. *  SUB 8, SUB 5  *
  5. *  SUBROUTINE    *
  6. *  APR 14, 1988  *
  7. *  GUY DUBEC     *
  8. ******************
  9. STOR SPACE(3) TO H1, H2, H3, H4
  10. STOR 000000 TO TOT1, TOT2, TOT3, TOT4
  11. IF COUNT=1
  12.   STOR HAND1 TO H1
  13.   STOR TON TO TOT1
  14.   STOR COUNT+1 TO COUNT
  15.   SKIP
  16. ELSE
  17.   RETURN
  18. ENDIF
  19. IF COUNT=2
  20.   STOR HAND2 TO H2
  21.   STOR TON TO TOT2
  22.   STOR COUNT+1 TO COUNT
  23.   SKIP
  24. ELSE
  25.   RETURN
  26. ENDIF
  27. IF COUNT=3
  28.   STOR HAND3 TO H3
  29.   STOR TON TO TOT3
  30.   STOR COUNT+1 TO COUNT
  31.   SKIP
  32. ELSE
  33.   RETURN
  34. ENDIF
  35. IF COUNT=4
  36.   STOR HAND4 TO H4
  37.   STOR TON TO TOT4
  38.   SKIP
  39. ELSE
  40.   RETURN
  41. ENDIF
  42. RETURN
  43.